home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g20.bas < prev    next >
BASIC Source File  |  1991-10-18  |  299b  |  12 lines
  1. 100 ' G20 T.WAKAMATSU
  2. 110 CLS:C(1)=6:C(2)=2:C(3)=1:C(4)=0
  3. 120     E(1)=4:E(2)=3:E(3)=5:E(4)=0
  4. 130 FOR N=1 TO 4
  5. 140   Y=242
  6. 150   FOR X=25 TO 315 STEP 5
  7. 160     Y=Y-4
  8. 170     LINE(X,Y)    -(630-X,476-Y),PSET,%C(N),B
  9. 180     LINE(340-X,Y)-(290+X,476-Y),PSET,%E(N),B
  10. 190   NEXT X
  11. 200 NEXT N
  12.